home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0181_Mode 13 Fast Clear Screen.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-03  |  318b  |  16 lines

  1. {
  2. > How do I clear the screen fast (asm code please) in mode 13h
  3. > (320x200x256)???????
  4. }
  5. Procedure ClearScreen(Col : Byte); assembler;
  6. asm
  7.    mov  ax, $A000
  8.    mov  es, ax
  9.    mov  cx, 32000
  10.    xor  di, di
  11.    mov  al, Col
  12.    mov  ah, al
  13.    rep  stosw
  14. end;
  15. { that should do it.  It'll clear it to Col }
  16.